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EDITOR'S NOTES 


As you will note from your mailing 
label, there is but one issue left in 
your current subscription. 


For those who cannot regualrly 
attend, please be advised that after 
the end of this cycle, the editor will 
offer oniy announcements of 
meetings. If minutes are provided, 
then they may be published, 
otherwise a postcard will suffice. 


An editorial several issue ago wrote 
of burnout in editing, and asked 
rhetorically if Update and IQLR 
might also be up against the wall, 
burnoutwise. 


Apparantly, the editorial stirred up 
more of a hornet's nest in the QL 
community than intended. Both 
magazines have announced plans for 
continuation. IQLR for at least two 
more years and Update for so long 
as there are subscribers. Hooray! 


The subject of burnout brought a 
letter from Hugh Howie, which is 
published herein. 


It is with great sadness that we 


learned of the recent death of 
Jessie Howie, Hugh's wife of over 40 
years. Those who met her at the 
meeting in Cornish, NH, last August 
were instantly drawn to her warmth 
and humor and enjoyment of life. 


Our hearts go out to Hugh at this 
time of his great grief. 
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The NESQLUG NEWS is the Journal 
of the New England Sinclair QL User 
Group. It is published bi-monthly. 


Annual membership is $10.00 (stu- 
dents $5.00) in North America. The 
rest of the world - $15.00 air mail. 


We meet monthly on the first Sat- 
urday of odd-numbered months and 
the first Sunday of even numbered 
months. If that's a holiday weekend, 
we meet the following weekend. 


NEXT MEETING 


NESQLUG meets from 11:00 pm to 
4:00 pm, Saturday, March 6, at the 
home of Al and Dorothy Boehm, 33 
Selfridge Rd., Bedford MA 01730 
Phone (617) 275-1097 for directions. 
There has not been scheduled a 
Special Interest meeting for 
February. Contact Ernie Wider or 
will Horton for latest updates on the 
subject. 


Our exchange policy is simple: we- 
send-you-ours-if-you-send-us-yours 
(WSYOIYSUY) and you have 
something to say about the QL. 


NEW ADDRESS Please 
forward exchange issues to Mike 
Jonas, 15 Fenno St. #1, Cambridge 
MA 02138. 


Unless copywritten by the author, 
articles/listings are in the public 
domain. Attribution is requested. 


phone 
(508) 785-1880 
(508) 362-5322 


(603) 675-2218 
(401) 438-5929 
(617) 889-0830 
(617) 876-7251 
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CLUB QL INTERNATIONAL 


by Peter Hale 


We recently received a copy (hardcopy) of an interesting free newsletter 
called Club QL International edited by Mike Kenneally, 6 Barnaby Road, 
Poynton, Cheshire SK12 1LR UNITED KINGDOM. It has been around for 45 
issues, and comes out monthly. - 


It is normally published on 3.5" disk. You send a formatted 3.5" disk, a self 
addressed Jiffy Bag and return postage. If you are good, you will include 
an article on the disk. 


It operates in many ways like a face-to-face user group. Articles tend 
toward problem solving, descriptions of problems with hardware/software, and 
fulmination over the limitations of MS-DOS. Each author prefaces his article 
with a full description of the equipment in his system. 


Mike is an editor with a tasteful sense of humor. Interspersed betwixt and 
between paragraphs and articles are his editorial comments and thoughts. 
Remember, all ye of literary bent, Cheshire is home to some rather peculiar 
cats! 


Highly recommended for its different way of communicating - both as regrads 
the medium and the message. 


QUANDEX RELEASED 


by Peter Hale 


Hugh Howie has recently completed a labor of love in putting a summary of 
each and every article of any consequence ever published in QUANTA on an 
Archive database. An article is summarized in about 60 characters. Both the 
article and the summary appear under an index category, and the same 
artilce may appear under more than one index category. 


Thus the name is QUANDEX. 


If you want to read up on Quill, there is a category listing all Quanta 
articles on Quill with the jist of each article summarized. 


QUANDEX is a genuine contribution to the QL literature and community. 
Hugh has placed it in the NESQLUG and Toronto Sinc-Link library. 
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LETTER 


Hugh H. Howie 

586 Oneida Dr 
Burlington. Ont. LTT 3V3 
(416) 634 4929 

1993 Jan 26 


Here is QUANDEX. I have decided to let it go as is. It is up to date to the 
end of Volume 9 and I seem to be going round in circles trying to improve 
the program. I think it better to let things stand as they are than to 
exercise my frustration on something which has taken up so much of my 
time. In this version there are some changes to the program and also a lot 
of data additions from the last version I sent around. Please use this one 
and delete the previous one. 


I have read and reread QUANTA till I could almost do without QUANDEX. I 
admit the program is rough, but it is the best I can do at this time. 
Perhaps it is because I did it, but I can find my way around it without any 
problems, and I think if I worked on it any more just now, the whole would 
suffer, as also would I. 


I am placing it in our TorQLib Library, and I will be mentioning it in the 
next issue of SincLink. Whether I send it to QUANTA is another matter. 
Possibly not, but I may change my mind. I am sending it to Bill Cable for 
the NESQLUG Library. If you or he do not think it worth going into the 
library, then keep it for your own use. I must get on to something else! 


I was sorry to hear that you were giving up on EMSoft, but then with the 
dwindling market for the QL, I understand. After all we did not get that 
great a response from our mailout, which I believe shows that there is no 
longer that great interest in Sinclair Computers. Also despite what Mike 
Fink has to say about the Z88, I do not see that one setting the world on 
‘fire either. 


I don't know how or why I survived the first days of my QL experiences, 
but I did. I think it was only because there were other things to get and 
to do that kept my interest alive. Now I have all that I could ask for. 
Many are going on to other machines and I do not know why. 


Many are changing machines before they understand and can utilize the one 
that they already have. Why? The NEW machine is not going to do any more 
for them than the QL. (Unless it is an excuse to gather up more and more 
programs just for the edification of having them.) 


I have more programs than I will ever use, let alone understand. I find that 
there are four or five programs I use regularly, and most came [free] with 
the QL. Another dozen or so luse occassionally - small things like 
dbf close bas and Scan, etc. 


But what of the others? They just sit and look at me from their nestling 
place in the desk drawer and silently ask why I never take them out. Are 
we like the pack rat? Collecting for the sake of doing so? Are we becoming 
a collection of program collectors? 


An IBM or whatever? Who needs it? I know that with what I have I will not 
be changing just for change's sake. Bah! Humbug!! Come to think of it, do 
I need a Z88? What would it do for me other than be compact in use for the 
trailer or travelling? 
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i think that part of my ennui is because I have squandered so much of my 
time on the mailout [of promotions for joining the Toronto Timex Sinclair 
Group], and on this QUANDEX. I forgot to leave time for other things, such 
as variety. Now I will be able to catch up on other things. The constant 
reading of QUANTA had become a chore. 
An 

'omputing? When I first voiced my desire for a computer for business 
purposes, my accountant turned down the idea. (He never did computerize 
his business.) Now when I no longer need one, I have one, and I spend my 
tine learning more about it, 


What is it that drives us to learn about something which is never going to 
be of real value to us? I can use pencil and paper for my household and 
personal records. I did it that way for my business so I should be able to 
do it for myself. Even today I do not have all my records in the computer. 
Does the computer give me an outlet for some emotion of which I know not? 
I know not! 


Before I go, I would like to thank Peter Hale for the programming ideas he 
gave me and for his encouragement. Without that I think I might have given 
up on QUANDEX some time ago. Now that I have finished, I have a feeling of 
tension released. Thank you, and thanks for listening to me! 


AWAR | 


by Peter Hale 


Many years ago I keypunched at T/S 1000 game of AWARI from Sync 
Magazine. It is an ancient African game played in villages, but Awari is just 
one of the names. I quite enjoyed the challenge of the game; computer 
speed is not critical. 


“After moving to the QL, the paper tape printout from the T/S2040 eventually 
went black - as does thermal paper left near a radiator, so it never got 
‘transfered to the QL. Until a version appeared in ZX-91 magazine courtesy 
of Andre Baune. 


Although color, ink and character size have been added, and the GOSUBs 
changed to PROCs, it is essentially as it appeared in ZX-91. Thus the 
compter player's name remains 'ZX'. Thanks for permission to crib, Andre. 


Oh, a note. Type lines 1350 through 1370 first. Then you can readily save 
the works in progress simply by typing sav then <ENTER>. 


10 REMark AWARI 
100 DEFine PROCedure Rules 
110 OPEN#3,scr_440x90a34x166 : WINDOW#3,440,90,34,166 
120 PAPER#3,6 : INK#3,0 : CLS#3 : BORDER#3,4,2 
130 PRINT#3,"The OBJECT of the GAME is to get more points in your box than 
the 'ZX'" 
140 PRINT#3,"This is done by picking up the 'stones' in a lettered box, 
distributing them in a clock-wise motion one to a box." 
150 PRINT#3,"If you place the last stone in an empty box, you get all the 
'stones' in the opposite box." 
160 PRINT#3,"The Winner is the first to get more than 18 'stones' or to play 
so that there are no stones to move." 
170 PRINT#3,TO 15,"PRESS ANY KEY TO PLAY; R for these rules" 
— 180 Z$ = INKEY$(-1) : PAPER#3,2 : CLS#3 
190 END DEFine Rules 
200 init : Rules 
210 init : Print_move : Game 
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230 REMark *** YOUR PLAY reg 

240 DEFine PROCedure You play 

250 AT 16,20 : PRINT "YOUR MOVE, WHICH BOX? " 
260 Z$ = INKEYS 

270 IF CODE(Z$)>76 THEN Z$ = CHR$(CODE(Z$)-32) 
280 IF Z$ = "R" THEN Rules 

290 IF Z$ < "G" OR Z$ > "L" THEN GO TO 260:REMark You play 
300 AT 16,42 : PRINT Z$ 

310 D = CODE(Z$)-64 

320 IF NOT B(D) THEN You play 

330 Add 

340 END DEFine You play 


360 REMark ** ZX-81 ** 

370 DEFine PROCedure ZX play 

380 F = 0 

390 S = F :PAUSE (60) 

400 FOR D = 1 TO 6 

410 IF NOT B(D) THEN GO TO 460 

420 A = D+B(D) f 

430 IFA = 12 THEN A = A-12 

440 IF NOT S THEN IF NOT B(12-D) THEN S = D 

450 IF NOT B(A) THEN IF B(12-A) THEN IF 12-A<>D THEN F = D 
460 END FOR D 

470 D =S 

480 IF F THEN D = F 

490 IF D THEN GO TO 520 

500 D = INT((RND<.7)*3+RND*3+1) 

510 IF NOT B(D) THEN GO TO 500 

520 AT 16,20 : PRINT "I WILL PLAY BOX "sCHR$(64+D): REMark 7 spaces 
530 PAUSE (90) 

540 Add 

550 END DEFine ZX_play 


570 REMark ** ADDING ** 

580 DEFine PROCedure Add 

590 A = D+B(D) 

600 FOR i = D+1 TO A 

610 IF i<13 THEN B(i) = B(i)+1 

620 IF i?12 THEN B(i-12) = B(i-12)+1 
630 END FOR i 

640 IF A>12 THEN A = A-12 

650 B(D) = 0 

660 IF B(A)<>1 THEN Print move 

670 IF D<7 THEN P(2)=P(2)+B(13-A) 
680 IF D>6 THEN P(1)=P(1)+B(13-A) 
690 B(13-A) = 0 

700 Print_move 

710 END DEFine Add 

720 : 

730 REMark ** PRINTING ** 

740 DEFine PROCedure Print move 
750 FOR i = 1 TO 6 

760 AT 5,i*8+3 : PRINT B(i); 

770 AT 13,i*8+3: PRINT B(13-i); 

780 END FOR i 

790 AT 8,3 : PRINT P(1) : AT 8,59: PRINT P(2) : AT 14,0 : PRINT ES 
800 E = P(1)>18 OR P(2)>18 OR NOT (B(1)+B(2)+B(3)+B(4)+B(5)+B(6)) OR NOT 
(B(T)+B(8)+B(9)+B(10)+B(11)+B(12)) 
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810 END DEFine Print move 


830 REMark ** THE GAME ** 

€40 DEFine PROCedure Game 

850 ZX_play 

860 IF E THEN End_it 

370 You_play 

880 IF NOT E THEN Game : ELSE End_it 
890 END DEFine Game 


910 REMark ** THE END ** 

920 DEFine PROCedure End_it 

930 AT 16,20 : PRINT "GAME OVER: "; 

940 IF P(1) > P(2) THEN PRINT "YOU WIN, " 

950 IF P(2) > P(1) THEN PRINT "I WIN, " 

960 IT P(2) = P(1) THEN PRINT "IT IS A DRAW," 
970 AT 18,20 : PRINT "YOU HAVE "sP(1)5" AND I HAVE ";P(2) 
980 AT 19,20 : INPUT "PLAYING AGAIN? (Y/N) "sint 
990 IF in$=="y" THEN RUN 155 : ELSE STOP 

1000 END DEFine End_it 

1010 : 

1020 REMark ** PREP ** 

1030 DEFine PROCedure init 

1040 WINDOW 478,256,34,0 : CLS : CSIZE 3,1 : PRINT TO T; "A W A R I" 
CSIZE 0,0 

1050 DIM B(12) 

1060 DIM P(2) 

1070 DIM E$(32) 

1080 FOR i=1 TO 12 

1090 BG)=3 

1100 END FOR i 

1110 Z$="[ ]" : CSIZE 3,1 : INK O 

1120 E=2 : n=l 

"1130 FOR i=n*1 TO n*6 

1140 AT E,i*3 : PRINT Z$ 

1150 AT E+4,i*3 : PRINT Z$ : REMark BOXES + POINTS 
1160 END FOR i 

1170 AT E+2,0 : PRINT Z$ 

1180 AT E+2,21 : PRINT Z$ : REMark SCORE BOXES 
1190 CSIZE 0,0 

1200 Z$="3" : INK 6 

1210 E=4 : n=3 

1220 IF E=4 

1230 AT 6,59 : PRINT "ZX" 

1240 AT 8,3 : PRINT "0" 

1250 AT 8,59 : PRINT "o" 

1260 AT 11,1 : PRINT "You" 

1270 END IF 

1280 CSIZE 0,0 : INK 4 

1290 EST : n=1 

1300 FOR i=1*n TO 6*n 

1310 IF E=7 THEN CSIZE 0,0: AT 4,i*8+1 : PRINT CURS(i+64) : AT 12,i*84+1 
PRINT CHR$(77-i) : REMark BOX LETTERS 

1320 END FOR i 

1330 CSIZE 0,0 : INK 0 

1340 END DEFine init 

1350 DEFine PROCedure Sav 

1360 DELETE flp2_AWARI_bas:SAVE flp2_AWARI_bas 
1370 END DEFine Sav 
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